home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Keyboard Logitech 1.xpl < prev    next >
Text File  |  2001-05-28  |  1KB  |  46 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Hardware\Keyboard"
  5. "NAME"="Logitech Cordless Keyboard"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Enable Control Panel Extensions for Cordless Keyboard"
  8. "DESCRIPTION 1"="If you have a cordless Logitech keyboard, then you will notice some extra options in the Keyboard applet in Control Panel. If you want to disable these extra options, clear the checkmark on the left."
  9. "VERSION"="1.0"
  10. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  11. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved."
  12. "CONTACTURL"="http://www.128moorlane.freeserve.co.uk/"
  13.  
  14. sP="HKLM\Software\Logitech"
  15. sQ="HKLM\Software\Microsoft\Windows\CurrentVersion\Controls Folder\Keyboard\shellex\PropertySheetHandlers\Logitech\@"
  16.  
  17. SUB Plugin_Initialize
  18.  f=RegPathExists(sP)
  19.  if f=false then
  20.   Call Disable()
  21.  else
  22.   g=RegReadValue(sQ)
  23.   if g="{D60F93E2-8A7B-11D0-8B13-008048808AB0}" then
  24.    Call SetUIElement(1,true)
  25.   end if
  26.  end if
  27. END SUB
  28.  
  29. SUB Plugin_CheckData(ElementIndex)
  30. END SUB
  31.  
  32. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  33.  b=GetUIElement(1)
  34.  if b=true then
  35.   Call RegWriteValue(sQ,"{D60F93E2-8A7B-11D0-8B13-008048808AB0}",1)
  36.  else
  37.   t=RegValueExists(sQ)
  38.   If t=true then
  39.    Call RegDeleteValue(sQ)
  40.   end if
  41.  end if
  42. END SUB
  43.  
  44. SUB Plugin_Terminate
  45. END SUB
  46.